home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue68 / Soap / itec / CalcITEC.asp next >
Encoding:
Text File  |  2001-03-04  |  405 b   |  19 lines
  1. <%
  2.   Dim SoapServer
  3.   Dim WSDLFilePath
  4.   Dim WSMLFilePath
  5.   
  6.   On Error Resume Next
  7.  
  8.   Response.ContentType = "text/xml"
  9.     
  10.   Set SoapServer = Server.CreateObject("MSSOAP.SoapServer")
  11.     
  12.   WSDLFilePath = Server.MapPath("CalcITEC.wsdl")
  13.   WSMLFilePath = Server.MapPath("CalcITEC.wsml")
  14.  
  15.   SoapServer.Init WSDLFilePath, WSMLFilePath    
  16.  
  17.   SoapServer.SoapInvoke Request, Response
  18.  
  19. %>